Լǰʹ Microsoft Visual Basic Scripting Edition дһЩ顣Լݣ 

󡢱͹̵Լ 
עԼ 
ıʽָ 
ʹһµıԼҪԭʹűűĽṹͱʽ׼Ķ⡣ʹúõıԼʹԴס׶׼ȷֱԼһ¡

Լ
VBScript ڰ汾ûԶ峣ҪʹóԱķʽʵ֣ȫĸдԺ֡еĶ» (_) ָ磺 

 USER_LIST_MAX
 NEW_LINE
ֱʶķɿУѡ Const 䴴ĳԼʹôСдϵĸʽԡconΪǰ׺磺 

 conYourOwnConstant
Լ
Ϊ׶һԣ VBScript ʹ±Լ

 ǰ׺ ʾ 
Boolean bln blnFound 
Byte byt bytRasterData 
Date (Time) dtm dtmStart 
Double dbl dblTolerance 
Error err errOrderNum 
Integer int intQuantity 
Long lng lngDistance 
Object obj objCurrent 
Single sng sngAverage 
String str strFirstName 



ӦھССVBScript ʾ

  ɼ 
̼ ¼ӹ̡ Ĺпɼ 
Script  HTML ҳ HEAD ֣κι֮⡣ ڽűйпɼ 


ǰ׺
Žű볤ȵӣбҪֱǰ׺ǰһַǰ׺ʵһ㣬ʹ

 ǰ׺ ʾ 
̼  dblVelocity 
Script  s sblnCalcInProgress 


Ա͹
ӦʹôСдϸʽҾĿġ⣬ӦԶʿʼ InitNameArray  CloseDialog

ھʹõĻϳƣƼʹñ׼дʹƱʵĳڡͨ 32 ַıĶʹдʱӦȷűбһ¡磬һűűл Cnt  Count ɻҡ

Լ
±г VBScript пõĶԼƼ

 ǰ׺ ʾ 
3D  pnl pnlGroup 
ť ani aniMailBox 
ѡ chk chkReadOnly 
Ͽб cbo cboEnglish 
ť cmd cmdExit 
Ի dlg dlgFileOpen 
 fra fraLanguage 
ˮƽ hsb hsbVolume 
ͼ img imgIcon 
ǩ lbl lblHelpMessage 
ֱ lin linVertical 
б lst lstPolicyCodes 
ť spn spnPages 
ı txt txtLastName 
ֱ vsb vsbRate 
 sld sldScale 


עԼ
й̵ĿʼֶӦ书ܵļҪע͡ЩעͲϸϢʵֹܣΪϸʱҪƵġͿԱⲻҪעάԼע͡ϸϢɴ뱾Ҫڲע

ݸ̵Ĳ;ԣ̶ԲȡֵΧҪʱӦ˵̸ı˺ͱķֵرͨı䣩ҲӦڹ̵Ŀʼ÷ֵ

̿ʼֵעӦα⡣ĺġʽ롱֡

α ע 
Ŀ ̵Ĺܣʵֹܵķ 
 ״̬Ӱ˹̵ⲿؼԪصб 
Ч ̶ÿⲿؼԪصӰЧб 
 ÿĿĲԵĲĽ͡ÿӦռݵһвڲע͡ 
 ֵĽ͡ 


ס¼㣺 

ÿҪıӦڲעͣ; 
Ӧؼ͹̣˵ϸʱҪڲע͡ 
ӦڽűĿʼְýűĸоٶ󡢹̡㷨򡢶Իϵͳʱһ㷨ļǺõġ 
ʽ
ӦܶرĻռ䣬ôʽӳ߼ṹǶסΪʾ 

׼Ƕ׿Ӧ 4 ո 
̵ĸעӦ 1 ո 
עͺ߲Ӧ 4 ոÿһǶ׿ 4 ո磺 
'*********************************************************
' Purpose: Locates the first occurrence of a specified user 
'          in the UserList array.
' Inputs: strUserList(): the list of users to be searched.
'         strTargetUser: the name of the user to search for.
' Returns: The index of the first occurrence of the strTargetUser 
'          in the strUserList array. 
'          If the target user is not found, return -1.
'*********************************************************
Function intFindUser (strUserList(), strTargetUser)
   Dim i   ' Loop counter.
   Dim blnFound   ' Target found flag
   intFindUser = -1
   i = 0   ' Initialize loop counter
   Do While i <= Ubound(strUserList) and Not blnFound
      If strUserList(i) = strTargetUser Then 
         blnFound = True   ' Set flag to True
         intFindUser = i   ' Set return value to loop count
      End If
      i = i + 1   ' Increment loop counter
   Loop
End Function

